home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8604.d64
/
listing 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
49 lines
10 .TAB(1,4,7;IN HYPRA-ASS: .LI 1,4,7
20 .STOP$C000;IN HYPRA-ASS: .BA $C000
30 ;*************************************************
40 ; 16-BITSCHLEIFE ANWENDUNG : BITMAP-LOESCHEN
50 ;*************************************************
60 ;
70 .REMSTART=$2000;IN HYPRA-ASS: .EQ START = $2000
80 .REMENDE=$3F3F; -"- .EQ ENDE = $3F3F
90 .[143]WERT=$00; -"- .EQ WERT = $00
100 ;
110 ;---------- INITIALISIERUNG -----------
120 ;
130 FOR#<(START);LSB STARTADRESSE
140 INPUT##>(START);MSB STARTADRESSE
150 NEXT$FA;IN VEKTOR $FA/FB SCHREIBEN
160 GOTO$FB
170 ;
180 FOR#<(ENDE);LSB ENDADRESSE+1
190 INPUT##>(ENDE);MSB ENDADRESSE
200 NEXT$FC;IN VEKTOR $FC/FD SCHREIBEN
210 GOTO$FD
220 ;
230 FOR#WERT;EINZUSCHREIBENDEN WERT
240 NEXT$FE;NACH $FE SCHREIBEN
250 ;
260 INPUT##$00;INDEX AUF NULL STELLEN
270 ;
280 ;---------- JOB AUSFUEHREN -------------
290 ;
300 LABEL FOR$FE;WERT LADEN
310 NEXT($FA),Y;UND EINTRAGEN
320 ;
330 ;--------- STEUERTEIL ------------------
340 ;
350 RUN$FA;LSB START NUN ALS ZAEHLER ERHOEHEN
360 USRMARKE;FALLS KEIN UEBERLAUF WEITER
370 RUN$FB;SONST MSB EBENFALLS ERHOEHEN
380 MARKE FOR$FA;VERGLEICH DES LSB
390 INPUT$FC;MIT LSB DER ENDADRESSE (FLAGGEN SETZEN)
400 FOR$FB;VOM MSB DES ZAEHLERS
410 WAIT$FD;WIRD DAS MSB DER ENDADRESSE SUBTRAHIERT
420 INTLABEL;ZURUECK ZUM JOB WENN ZAEHLER < ENDADRESSE
430 ;
440 ;-------- AUSGANG ---------------------
450 ;
460 OR;SONST PROGRAMMENDE
470 ;
480 .TOU,1,4,7;IN HYPRA-ASS: .SY 1,4,7